home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #04 (Oct85-Nov85) / basic / EjectLib Folder 1-12 / LIBinit.asm < prev    next >
Assembly Source File  |  1985-10-09  |  851b  |  28 lines
  1. ;
  2. ; LIBinit ROUTINE
  3. ;Sample version of LIBinit routine
  4. ;
  5. ;  REGISTER INFORMATION
  6. ;
  7. ;  A0 = pointer to a version record containing:
  8. ;       2 bytes = version of Basic interpreter (ie 2 for 2.01)
  9. ;      2 bytes = revision number of Basic interpreter (ie 1 for 2.01)
  10. ;      2 bytes = 0 if decimal math, 1 if IEEE binary math format
  11. ;    2 bytes = compatibility of routine to Basic var
  12. ;            0 = compatible
  13. ;            -1= incompatible
  14. ;    8 bytes = reserved array of INTEGER
  15. ;
  16. ; A4 = pointer to a handle (long word) owned by this library
  17. ;        Use this as a handle to a static data segment.
  18. ; A5 = pointer to the base of the application jump table
  19. ; D0 = 0 on exit if this routine is purgeable.
  20.  
  21. LIBVER_Result    EQU 6    ;offset to version record field
  22.                     ;for compatibility. (See above)
  23.                     
  24. LIBinit:
  25.     CLR.W    LIBVER_Result(A0)    ;assume we're compatible    
  26. LIBinitExit:
  27.     MOVEQ    #0,D0
  28.     RTS